|
CATIA V5 Programmierung : Split Richtung ändern
sawah am 12.10.2011 um 15:51 Uhr (0)
Hallo,ich habe es jetzt mit Selection versucht, zwar wird Split_7 selektiert aber wird nicht geändert.Code:Dim selection4 As ObjectSet selection4 = partDocument1.Selectionselection4.Search "(Name=*Split_7*),all"Set sptSide = selection4.SplittingSidesptSide = catNegativeSideGruß
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Distance
sawah am 01.08.2011 um 14:52 Uhr (0)
Hallo zusammen,ich will die Abstand zwischen eine Punkt und einen Linie messen ich habe das hier versucht:Code:Sub messen3()Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")Set mess1 = CATIA.ActiveDocument.Part.HybridBodies.Item(1).HybridShapes.Item("Punkt_a")Set mess2 = CATIA.ActiveDocument.Part.HybridBodies.Item(1).HybridShapes.Item("Linie_c")Dim Gesamtlength1Set Measurable = TheSPAWorkbench.GetMeasurable(mess1)Gesamtlength1 = Measurable.GetMinimumDistance(mess2)End Subich kann aber ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Winkel zwischen ZY Ebne und Linie?
sawah am 27.09.2011 um 16:12 Uhr (0)
Hallo zusammen,ich versuch die Winkel Zwischen eine Linie und ZY Ebene zu messen, ich habe das hier versucht, aber geht net:Code:Dim TheSPAWorkbench As WorkbenchDim aTheMeasurable, bTheMeasurable As MeasurableDim angle1Dim reference1 As ReferenceDim reference2 As ReferenceSet reference1 = CATIA.ActiveDocument.Part.HybridBodies.Item(4).HybridShapes.Item("LineNormal_1")Set reference2 = CATIA.ActiveDocument.Part.AxisSystems.Item("KOS_1Y")Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench") ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : messen in bezug zu koordinatensystem2!!!
sawah am 24.08.2011 um 15:11 Uhr (0)
Hallo zusammen,ich habe die Suche schon misbrucht aber nicht so recht das richtige gefunden.Vielleicht kann mir ja mal wer helfenich habe ein Punkt der sich in koordinatensystem3 befindet, und will die Koordinaten anzeigen aber in Bezug zu koordinatensystem2.ich habe das hier versucht anzupassen, kriege ich aber net hinCode:Dim pt_to_measureSet pt_to_measure = CATIA.ActiveDocument.Part.AxisSystems.Item("KOS_1")Debug.Print pt_to_measure.NameDim ref_pt As ReferenceSet ref_pt = CATIA.ActiveDocument.Part.Creat ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Linie erzeugen
sawah am 07.06.2011 um 11:35 Uhr (0)
Hallo zusammen,Hallo zusammenich habe die Suche schon misbrucht aber nicht so recht das richtige gefunde, und zwar ich habe ein Code zu erzeugen von Punkte, ich will das erweitern das ich eine Linie durch diese Punt erzeugen kann.kriegs aber net hin.Vielleicht kann mir ja mal wer helfenDanke dafür im VorrausGruß Code:Sub CATMain() Fehlerroutine -------------------------------------------- On Error Resume Next CATIA.DisplayFileAlerts = False Set activedoc = CATIA.ActiveDocumentIf Err.Number 0 Then MsgB ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : auf koordinaten zugreifen!!!!
sawah am 19.07.2011 um 09:49 Uhr (0)
Hallo zusammen,ich habe eine Frage und zwar ich hab ein Koordinatensystem erzeugt wo Die Axe auch mit Koordinaten definiert sind, ich will auf diese Koordinaten zugreifen und mit Excel ändern, ist das möglich? ich hab das hier versucht, bekomme aber eine Fehlermeldung!!?Catia.ActiveDocument.part.axissystems.item(1).XAxisDirection.X.valueGruß Sawah
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Punkt mit CommandButton
sawah am 30.06.2011 um 11:17 Uhr (0)
Hallo Berndich habe das hier versucht klappt aber nicht. Code:Dim punkt_vorhanden As Booleanpunkt_vorhanden = False Dim intPointCoordObj1 As HybridShapePointCoordFor Each intPointCoordObj1 In CATIA.ActiveDocument.Part ????????FEHLERIf intPointCoordObj.Name = "Punkt_b" Then punkt_vorhanden = True Set intPointCoordObj1 = intPointCoordObj End If Next intPointCoordObj1 If Not punkt_vorhanden Then Set intPointCoordObj1 = intHybShapeFacObj.AddNewPointCoord((ws.Cells(38, 2).Value), (ws.Cells(38, 3).Val ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Winkel zwischen ZY Ebne und Linie?
sawah am 27.09.2011 um 16:40 Uhr (0)
Hallo,Code:Dim TheSPAWorkbench As WorkbenchDim aTheMeasurable, bTheMeasurable As MeasurableDim angle1Dim reference1 As ReferenceDim reference2 As ReferenceSet reference1 = CATIA.ActiveDocument.Part.HybridBodies.Item(4).HybridShapes.Item("LineNormal_1")Set reference2 = part1.CreateReferenceFromObject(part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(KOS_1;2);None:();Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRep Version_CXR15)", axisSystems1.Item("KOS_1 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Intersection Koordinaten anzeigen
sawah am 11.07.2011 um 08:13 Uhr (0)
Hallo zusammen,ich habe das hier versucht:Code:Dim pt_to_measureSet pt_to_measure = hybridShapes1.Item("Intersection_1")Debug.Print pt_to_measure.NameDim ref_pt As ReferenceSet ref_pt = CATIA.ActiveDocument.Part.CreateReferenceFromObject(pt_to_measure)Dim spawb As WorkbenchSet spawb = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")Dim meas1Set meas1 = spawb.GetMeasurable(ref_pt)Dim a(2)meas1.GetPoint aMsgBox a(0) & vbLf & a(1) & vbLf & a(2)bekomme aber die Koordinaten in Abhängigkeit von Koordinatensyste ...
|
| In das Form CATIA V5 Programmierung wechseln |
